#!/usr/bin/perl -w

#  FILE:   vot-notes.pl
#  AUTHOR: JOSE A. ESQUIVEL
#  DATE:   14/12/2001
#
#  DESCRIPTION: Permite votar las anotaciones

#inicializar:
require ("init.pl");
require ("dbData.pl");
require ("notes.pl");

#imprimir cabecera
&print_header;


#Se define el metdo utilizado para enviar datos
if ('GET' eq $ENV{'REQUEST_METHOD'})
{
  %input = &parse_input;
  
  $dbName        = $input{b};
  $idDescription = $input{c};
  $path          = $input{d};
  $img           = $input{e};
}


$cancel_accion = $path . "controlNT.pl?b=$dbName&c=$idDescription&d=$path";
$accion        = $path . "vot-notes.pl";


print <<EOF1;
    <HTML>
          <HEAD><BASE TARGET="structure"></HEAD>
          <BODY  BACKGROUND=\"../$img/kc.gif\">
EOF1
    ;

if ('GET' eq $ENV{'REQUEST_METHOD'})
{
print <<EOF2;
   <CENTER>
       <H2>VOTAR ANOTACIONES</H2>
   </CENTER>
   <FORM NAME="myform" ACTION="$accion" METHOD="POST">
       <TABLE>
	      <INPUT TYPE="HIDDEN" NAME="b" VALUE="$dbName">
	      <INPUT TYPE="HIDDEN" NAME="c" VALUE="$idDescription">
	      <INPUT TYPE="HIDDEN" NAME="d" VALUE="$path">
              <INPUT TYPE="HIDDEN" NAME="e" VALUE="$img">
              <TR><TD>Nombre:  <TR><TD><INPUT TYPE="TEXT"     NAME=\"login\"    SIZE=27  MAXLENGTH=100></TD>
              <TR><TD>Password:<TR><TD><INPUT TYPE="PASSWORD" NAME=\"password\" SIZE=27  MAXLENGTH=100></TD>
       </TABLE>
EOF2
    ;
    #traer anotaciones de la descripcion
    %notas = &traer_notas($dbName, $idDescription);

    if ($notas{numRows} > 0)
    {
	print "<p><TABLE>";
	print "<TR><TD><TD>Favor<TD>/Contra</TD>";
	for ($i=1; $i<=$notas{numRows};$i++)
	{
	    
            $nombreW     = "nota" . $i;
	    $titulo      = "$notas{'nAuthor'.$i}-$notas{'Date'.$i}"; 
	    $url_nota    = "nota.pl?b=$dbName&c=$IMG&n=$notas{'idNote'.$i}&t=$titulo";
	    $imag_nota   = "<TR><TD><IMG SRC=\"../$img/note.gif\" BORDER=0>&nbsp"; 
            $refe_nota   = "<A HREF=\"#\" onClick=\"Mostrar_Nota('$url_nota','$nombreW')\">"; 
            $anotacion   = "<b>$titulo</b></A><FONT COLOR=\"red\">&nbsp;$votos</FONT></TD>";
	    print $imag_nota . $refe_nota . $anotacion;
        }
	print "  </TABLE>";
    }
}

print "</FRAME></BODY>\n</HTML>";
